home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / telecom / tm421_4.zip / HEIGHT.SCR < prev    next >
Text File  |  1996-02-06  |  1KB  |  49 lines
  1. ;
  2. ; HEIGHT.SCR, set the terminal window height
  3. ;
  4. ; You cannot reduce the size of the screen. However, you can reduce
  5. ; the size of the terminal window by using the scroll margin command
  6. ; defined in VT102 and ANSI terminal emulations.
  7. ;
  8.  
  9. integer term, h
  10. string choice, s
  11.  
  12. query terminal,term
  13. if term=1 or term=3 or term=4
  14.   print
  15.   print "What terminal height do you like ?"
  16.   print " 0. full height"
  17.   if height > 24
  18.      print " 1. 24 lines"
  19.   endif
  20.   if height > 25
  21.     print " 2. 25 lines"
  22.   endif
  23.   if height > 35
  24.     print " 3. 35 lines"
  25.   endif      
  26.   if height > 43
  27.     print " 4. 43 lines"
  28.   endif
  29.   if height > 50
  30.     print " 5. 50 lines"
  31.   endif
  32.   print "Select: ",
  33.   input choice
  34.   print "^[[2J",
  35.   concat s,choice
  36.   atoi s,h
  37.   switch h
  38.     case 0: print "^[[0;0r",
  39.     case 1: print "^[[0;24r",
  40.     case 2: print "^[[0;25r",
  41.     case 3: print "^[[0;35r",
  42.     case 4: print "^[[0;43r",
  43.     case 5: print "^[[0;50r",
  44.   endswitch
  45. else
  46.   print "This script run on ANSI, VT102 and AVATAR only"
  47. endif
  48.  
  49.